home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World Interactive 11
/
PC World Interactive 11.iso
/
share
/
multimed
/
cdmax153
/
CDmax.exe
/
0
/
RCDATA
/
TFRMEDIT
/
TFRMEDIT.txt
Wrap
Text File
|
1998-06-12
|
14KB
|
415 lines
object frmEdit: TfrmEdit
Left = 174
Top = 187
Width = 520
Height = 290
BorderIcons = [biSystemMenu, biMaximize]
Caption = 'Contents'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
KeyPreview = True
OnCreate = FormCreate
OnDestroy = FormDestroy
OnResize = FormResize
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object pnlButton: TPanel
Left = 0
Top = 219
Width = 512
Height = 44
Align = alBottom
BevelInner = bvLowered
TabOrder = 1
object btnOk: TButton
Left = 266
Top = 9
Width = 76
Height = 25
Caption = '&OK'
TabOrder = 0
OnClick = btnOkClick
end
object btnCancel: TButton
Left = 346
Top = 9
Width = 76
Height = 25
Caption = '&Cancel'
ModalResult = 2
TabOrder = 1
end
object btnApply: TButton
Left = 426
Top = 9
Width = 76
Height = 25
Caption = '&Apply'
TabOrder = 2
OnClick = btnOkClick
end
end
object pgcEditor: TPageControl
Left = 0
Top = 0
Width = 512
Height = 219
ActivePage = tbsNotes
Align = alClient
TabOrder = 0
OnChange = pgcEditorChange
OnChanging = pgcEditorChanging
object tbsGeneral: TTabSheet
Caption = 'General'
object lblArtist: TLabel
Left = 6
Top = 8
Width = 26
Height = 13
Caption = 'Art&ist:'
FocusControl = edtArtist
end
object lblTitle: TLabel
Left = 6
Top = 49
Width = 23
Height = 13
Caption = '&Title:'
FocusControl = edtTitle
end
object lblCategory: TLabel
Left = 409
Top = 8
Width = 45
Height = 13
Caption = 'Cat&egory:'
FocusControl = cboCategory
end
object lblTracks: TLabel
Left = 6
Top = 91
Width = 36
Height = 13
Caption = 'T&racks:'
FocusControl = sgrTracks
end
object edtArtist: TEdit
Left = 6
Top = 23
Width = 387
Height = 21
TabOrder = 0
OnExit = edtArtistExit
end
object edtTitle: TEdit
Left = 6
Top = 64
Width = 491
Height = 21
TabOrder = 1
OnExit = edtTitleExit
end
object cboCategory: TComboBox
Left = 409
Top = 23
Width = 88
Height = 21
Style = csDropDownList
DropDownCount = 12
ItemHeight = 0
TabOrder = 2
OnExit = cboCategoryExit
end
object sgrTracks: TStringGrid
Left = 6
Top = 107
Width = 491
Height = 79
ColCount = 2
DefaultColWidth = 21
DefaultRowHeight = 20
RowCount = 12
FixedRows = 0
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goDrawFocusSelected, goEditing, goTabs, goAlwaysShowEditor, goThumbTracking]
ScrollBars = ssVertical
TabOrder = 3
OnExit = sgrTracksExit
OnKeyDown = sgrTracksKeyDown
OnSelectCell = sgrTracksSelectCell
end
end
object tbsNotes: TTabSheet
Caption = 'Notes'
object mmoExtended: TMemo
Left = 0
Top = 30
Width = 504
Height = 161
Align = alClient
TabOrder = 0
WantTabs = True
OnExit = mmoExtendedExit
end
object pnlNotes: TPanel
Left = 0
Top = 0
Width = 504
Height = 30
Align = alTop
BevelInner = bvLowered
TabOrder = 1
object spbBkwd: TSpeedButton
Left = 2
Top = 2
Width = 25
Height = 25
Hint = 'Prev Track'
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
0400000000000001000000000000000000001000000010000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333333333333333FF3333333333333744333333333333F773333333333337
44473333333333F777F3333333333744444333333333F7733733333333374444
4433333333F77333733333333744444447333333F7733337F333333744444444
433333F77333333733333744444444443333377FFFFFFF7FFFFF999999999999
9999733777777777777333CCCCCCCCCC33333773FF333373F3333333CCCCCCCC
C333333773FF3337F333333333CCCCCCC33333333773FF373F3333333333CCCC
CC333333333773FF73F33333333333CCCCC3333333333773F7F3333333333333
CCC333333333333777FF33333333333333CC3333333333333773}
NumGlyphs = 2
ParentShowHint = False
ShowHint = True
OnClick = spbBkwdClick
end
object spbFrwd: TSpeedButton
Left = 26
Top = 2
Width = 25
Height = 25
Hint = 'Next Track'
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
0400000000000001000000000000000000001000000010000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
33333FF3333333333333447333333333333377FFF33333333333744473333333
333337773FF3333333333444447333333333373F773FF3333333334444447333
33333373F3773FF3333333744444447333333337F333773FF333333444444444
733333373F3333773FF333334444444444733FFF7FFFFFFF77FF999999999999
999977777777777733773333CCCCCCCCCC3333337333333F7733333CCCCCCCCC
33333337F3333F773333333CCCCCCC3333333337333F7733333333CCCCCC3333
333333733F77333333333CCCCC333333333337FF7733333333333CCC33333333
33333777333333333333CC333333333333337733333333333333}
NumGlyphs = 2
ParentShowHint = False
ShowHint = True
OnClick = spbFrwdClick
end
object cboTracks: TComboBox
Left = 57
Top = 4
Width = 440
Height = 21
Style = csDropDownList
ItemHeight = 13
TabOrder = 0
OnChange = cboTracksChange
end
end
end
object tbsPlaylist: TTabSheet
Caption = 'Playlist'
object SrcLabel: TLabel
Left = 6
Top = 9
Width = 147
Height = 16
AutoSize = False
Caption = 'Tracks Available:'
end
object DstLabel: TLabel
Left = 306
Top = 10
Width = 43
Height = 14
AutoSize = False
Caption = 'Playlist:'
end
object lblTimeValue: TLabel
Left = 384
Top = 10
Width = 113
Height = 13
Alignment = taRightJustify
Caption = 'Tracks: 00 Time: 00:00'
end
object SrcList: TListBox
Left = 6
Top = 26
Width = 193
Height = 151
ItemHeight = 13
MultiSelect = True
Sorted = True
TabOrder = 0
OnDragDrop = ListDragDrop
OnDragOver = ListDragOver
OnEndDrag = ListEndDrag
OnMouseDown = ListMouseDown
end
object DstList: TListBox
Left = 304
Top = 26
Width = 193
Height = 151
ItemHeight = 13
MultiSelect = True
TabOrder = 6
OnDragDrop = ListDragDrop
OnDragOver = ListDragOver
OnEndDrag = ListEndDrag
OnMouseDown = ListMouseDown
end
object bbnAdd: TBitBtn
Left = 208
Top = 26
Width = 90
Height = 25
Caption = 'Add'
TabOrder = 1
OnClick = bbnAddClick
OnDragDrop = ListDragDrop
OnDragOver = ListDragOver
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
0400000000000001000000000000000000001000000010000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333333333333333333FFF333333333333000333333333
3333777FFF3FFFFF33330B000300000333337F777F777773F333000E00BFBFB0
3333777F773333F7F333000E0BFBF0003333777F7F3337773F33000E0FBFBFBF
0333777F7F3333FF7FFF000E0BFBF0000003777F7F3337777773000E0FBFBFBF
BFB0777F7F33FFFFFFF7000E0BF000000003777F7FF777777773000000BFB033
33337777773FF733333333333300033333333333337773333333333333333333
3333333333333333333333333333333333333333333333333333333333333333
3333333333333333333333333333333333333333333333333333}
Layout = blGlyphRight
NumGlyphs = 2
end
object bbnAddAll: TBitBtn
Left = 208
Top = 55
Width = 90
Height = 25
Caption = 'Add All'
TabOrder = 2
OnClick = bbnAddAllClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
0400000000000001000000000000000000001000000010000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333333333333333333FFF333333333333000333333333
3333777FFF3FFFFF33330B000300000333337F777F777773F333000E00BFBFB0
3333777F773333F7F333000E0BFBF0003333777F7F3337773F33000E0FBFBFBF
0333777F7F3333FF7FFF000E0BFBF0000003777F7F3337777773000E0FBFBFBF
BFB0777F7F33FFFFFFF7000E0BF000000003777F7FF777777773000000BFB033
33337777773FF733333333333300033333333333337773333333333333333333
3333333333333333333333333333333333333333333333333333333333333333
3333333333333333333333333333333333333333333333333333}
Layout = blGlyphRight
NumGlyphs = 2
end
object bbnRemove: TBitBtn
Left = 208
Top = 84
Width = 90
Height = 25
Caption = 'Remove'
TabOrder = 3
OnClick = bbnRemoveClick
OnDragOver = ListDragOver
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
0400000000000001000000000000000000001000000010000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
33333333333333333333333333333333333333333333333333FF333333333333
3000333333FFFFF3F77733333000003000B033333777773777F733330BFBFB00
E00033337FFF3377F7773333000FBFB0E000333377733337F7773330FBFBFBF0
E00033F7FFFF3337F7773000000FBFB0E000377777733337F7770BFBFBFBFBF0
E00073FFFFFFFF37F777300000000FB0E000377777777337F7773333330BFB00
000033333373FF77777733333330003333333333333777333333333333333333
3333333333333333333333333333333333333333333333333333333333333333
3333333333333333333333333333333333333333333333333333}
NumGlyphs = 2
end
object bbnRemoveAll: TBitBtn
Left = 208
Top = 113
Width = 90
Height = 25
Caption = 'Remove All'
TabOrder = 4
OnClick = bbnRemoveAllClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
0400000000000001000000000000000000001000000010000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
33333333333333333333333333333333333333333333333333FF333333333333
3000333333FFFFF3F77733333000003000B033333777773777F733330BFBFB00
E00033337FFF3377F7773333000FBFB0E000333377733337F7773330FBFBFBF0
E00033F7FFFF3337F7773000000FBFB0E000377777733337F7770BFBFBFBFBF0
E00073FFFFFFFF37F777300000000FB0E000377777777337F7773333330BFB00
000033333373FF77777733333330003333333333333777333333333333333333
3333333333333333333333333333333333333333333333333333333333333333
3333333333333333333333333333333333333333333333333333}
NumGlyphs = 2
end
object bbnShuffle: TBitBtn
Left = 208
Top = 142
Width = 90
Height = 25
Caption = 'Shuffle'
TabOrder = 5
OnClick = bbnShuffleClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
0400000000000001000000000000000000001000000010000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333FFF33F333FF3F330E0330FFFCCFCC33777FF7F3377F7730EEE030FFFC
CFCC377777F7F33773770EEE0000FFFFFCCF777777773F33377FEEE0BFBF0FFF
FCCF7777333373F337730E0BFBFBF0FFCCFF77733333373F77F330BFBFBFBF0F
CCFF37F333333F7F773330FBFBFB0B0FFFFF37F3F33F737FFFFF30B0BF0FB000
000037F73F73F777777730FB0BF0FB0FFFFF373F73F73F7F333F330030BF0F0F
FF993F77373F737F3377CC33330BF00FFF9977FFF373F77F3F77CC993330009F
99FF7777F337777F77F333993330F99F99FF3F77FF37F773773F993CC330FFF9
9F9977F77F37F3377F77993CC330FFF99F997737733733377377}
NumGlyphs = 2
end
end
end
object inoEdit: TIniOut
Items.Strings = (
'frmEdit;Left;0;Software\Tisdale\CDmax\frmEdit;Left;1;0'
'frmEdit;Top;0;Software\Tisdale\CDmax\frmEdit;Top;1;0'
'cboCategory;Items;<unknown>|blues|classical|country|data|folk|ja' +
'zz|misc|newage|reggae|rock|soundtrack;Software\Tisdale\CDmax\frm' +
'Edit\cboCategory;Items;1;0'
'frmEdit;Height;355;Software\Tisdale\CDmax\frmEdit;Height;1;0'
'frmEdit;Width;400;Software\Tisdale\CDmax\frmEdit;Width;1;0')
RegistryRoot = CURRENT_USER
Left = 12
Top = 226
end
end